## {r vectors-to-json, echo=TRUE, results="asis"} npscampr <- read_json("data/npscampr.json") cat( paste( '<script> var data = ',npscampr,'; </script>' , sep="") )